home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Kick Pascal v2.10 d2.adf / SYSPROG / Fensterei.p < prev    next >
Text File  |  1990-11-01  |  562b  |  17 lines
  1. Program Fensterei;
  2. Var f: text;  { prinzipiell ist jeder Filetyp möglich, aber ein
  3.                 Textfile ist wohl das einzig sinnvolle. }
  4. Begin
  5.   Assign(f, 'Con:40/20/560/180/Ein Window');
  6.  
  7.   Reset(f);       { Fenster öffnen }
  8.  
  9.   If eof(f) Then error('War nix.');    { Fenster konnte nicht
  10.                                          geöffnet werden }
  11.   Writeln(f, 'Horrido!');    { Dieser Text wird in das Fenster
  12.                                geschrieben. }
  13.   Delay(100);          { 2 Sekunden Pause }
  14.  
  15.   Close(f)             { Fenster wieder zumachen }
  16. End.
  17.